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-Sep-1984 NML.SRCINMLPMANIP.B32; 
001 ZTITLE a. snternet parameter manipulation module’ 
; § MODULE NMLSPMANIP 
LANGUAGE (BLISS$32) 
ADDRESSING_MODE (NONEXTERNAL <GENERAL) , 
05 ADDRESS! NG” Otros (EXTERNAL=GENERAL), 
Be IDENT = 'V04-0 
dz 
BEGIN 


Lee AAA AAAS 
' 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY | CORDANCE THE TERMS O C 


i N_ ACCOR WITH ERM U LICENSE AND WITH THE 
t* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THI WARE OR ANY OTHE 
!® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


« 
& 
& 
tt 
% 
& 
* 
* 
' * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
' * 
'e THE gee IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* 
* 
% 
® 
% 
z 
% 
x 


'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Vee AREA AERA AAA AAA AAA AAA AAA AAA AAAs 
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! 
i ABSTRACT: 


This module contains routines to handle internal parameter 
manipulation functions. 


i ENVIRONMENT: VAX/VMS Operating System 
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' 
{ 
1 
t 
1 
1 
04 ! 
Bt ; AUTHOR: Distributed Systems Software Engineering 
04 i CREATION DATE: 23-JAN-1980 
045 1 | MODIFIED BY: 
Wh, ' v03-003 MKP0003 Kathy Perko 4-Aug-1983 
8 pee ’ Make permanent database routines transparent to the length 
, bee of the ISAM keys at the beginning of the records. 
1 051 ! v03-002 mKP0002 Kathy Perko 22-June-1982 
§ O3¢ Add support for spec tying ° ‘active X25-Protocol network’’. 
4 054 ! v03-001 MKP0001 athy Perko genhec tii -1982 
2 086 More nedtttantions for NETACP control Q10 
7 05 ‘ 


second search key to NFB. Also, delete the start 2 
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2 1! v02-001 LAK 900! well 21-Jul-1981 
: } Modifications hor co oNETACP control Q10. 
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Declarations " o 2 122808-1 382 99395 :93 


SNML_EXTDEF ; 


EXTERNAL LITERAL 
NML$_DSCBFOVF, 
NML$~QIOBF OVE. 
NMLS~RECBFOVE ; 


EXTERNAL ROUTINE 
NMASSEARCHFLD, 
NMLS$BLD_REPLY, 
NMLSBLDP2, 
NMLSERROR.1, 
NMLSERROR~2: 


¢ ] ZSBTTL ‘Declarations’ 
4 1} 
5 1 ! TABLE OF CONTENTS: 
oe? 1 
§ 1 FORWARD ROUTINE 
0¢ 1 LSSAVEPARAM 
070 1 NMLSCHKPRMVAL , 
071 1 NML SBLDSE TQBF : NOVALUE, 
072 1 NMLSDEL_FIELDS, 
Bee 1 NMLSADD_ FIELDS 
74 1 =“ NMLSREABPARLIST, 
0075 3 NMLSSHOWPARLIST, 
0076 1 NMLSBLDALLDES; 
0077 1 
078 1! 
079 1 ! INCLUDE FILES: 
0080 1! 
0081 1 
0082 1 LIBRARY ‘LIB$:NMLLIB.L32'; 
0083 1 LIBRARY ‘SHRLIBS:NMALIBRY.L32'; 
0084 1 LIBRARY ‘SHRLIBS$:NET.L32'; 
0085 1 LIBRARY 'SYSSLIBRARY:STARLET.L32'; 
0086 1 
0087 1! 
0088 ! : EXTERNAL REFERENCES: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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NML_internal parameter manipulation module aa 4 99: g6: 99 . 
NMLSSAVEPARAM Check parameter value 14S NML.SRCINMLPMANIP.B32; (3) 


; 5 1 ZSBTTL "NMLSSAVEPARAM Check per ener 
GLOBAL ROUTINE NMLSSAVEPARAM (CPT_IN 


: 


38 
S 


er value 
DEX, teSctn, POINTER) = 
ee 


i jp PURE, DESCRIPTION: 
This routine saves a parameter as a descriotor in the parameter 


descriptor block. 


{FORMAL PARAMETERS: 


CPT INDEX 
LENGTH 
POINTER 


IMPLICIT INPUTS: 

NMLSAB_PRMSEM is the parameter semantic table. 

NMLSAW-PRM_DES is the parameter descriptor buffer. 

NMLSGW-PRMBESCNT contains the current number of descriptor entries. 
IMPLICIT OUTPUTS: 


If oe poreneter is valid then a Gone eierer entry will be created for 


it im NMLSAW_PRM_DES and NMLSGW_PRMDESCNT will be incremented. 


i ROUTINE VALUE: 
p Sarria CODES: 


Always returns NML$_STS_SUc. 
i SiDE EFFECTS: 


MEW 9 ODNOAUE WN (OO OVNOAULS WN "O0O@ 


If the per gneter rt a § pe’ buffer is full then a software error 


3 J 
3 1 
rr 1 
o 1 
oe 1 
e 1 
.- 3 
3 3 
3; 7 
= 
6 1 
oO 1 
3 (4% 
© 1 
a 1 
3; 3 
3 3 
; 
cis 
6 1 
Fs 
a 1 
3 1 
3; 3 
3 
3 3 
3 3 
oe 
o 1 
3 4% 
° 1 
3 Y 
7 
_. 
am 
. 2 
= 
3; (CY 
6 1 
a 
s 
3 
a 
a 
3 
; 7 
3 
3 7 
3 
zg Y 
Bm 
® 
3, F 
3 Y 
3 
2 
5, (3 


PNMVMAYIVIVIUUIVUIE BERS LELE & INI 8 ee 
NS SSVSEVLUNVS SSNS ARGS ASSSVEAFUNSSSRVUSURAN ES Sane nro Sew 


PRIMM IM MMOMOMPEMPENINININPNAIMI III at a at a a at tt a a a 


me aa a a at ak a at a a a a a a a a a a a a as a a 2 


PDA 


CSOOSTSOOOCOOCOOCOOOOOCOCOOCOOOOCOOSOOOOOOOOOOOOOOOOOOoOOoOO 


8 
iB (NMASC_STS_MPR) is signalled with optional text to identify the error. 
41 
23 
4 BEGIN 
is 
#6 NO pr LIST es CPTABLE C. cer T INDEX. 0,0,0,0) 
4 Lock CCP SEE 
4g SEMANTIC_LIST = NL SAB PRMSEM aie MS EcP1$wW_PSTINDEX], 0,0,0,0) 
$5 BBLOCK CPSTSK ENTRYLEN); 

1 OCAL 

§ VEC_INDEX, 

MASR : BLOCK C1, WORD), 

4 MSGSIZE, ' Resultant message size 

5 OFFSET, i Tem err parameter offset 

§ VEC : REF BLOCKVECTOR C. 2, WOR 

0 

1 


; Check the parameter descriptor buffer to see if there is any room left 
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NRL SPMANIP NAL internal parameter manipulation module 16-Sep-1984 00:26:09 AX-11 Bliss-32 V4.0-74 Pa 5 
v04-000 NMLSSAVEPARAN” Check poreneter value 18-88-1382 99:68:92 ENML. SRC NMLPMANIP.B32; = (3) 
; 1646 19 IF_ .NMLSGW_PRMDESCNT GEGU PDBSK_NUMBER 
; 165 1 THEN 
: 198 : BEGIN 
183 166 Signal parameter descriptor buffer overflow. 
: 170 198 NMLSAB_MSGBLOCK ([MSBSL_FLAGS] = MSBSM_DET_FLD OR MSBSM_MSG_FLD; 
; (171 1 NMLSAB_MSGBLOCK [MSBS$B_CODE] = NMASC_STS_APR; ! Get error Code 
4 76 170 NMLSAB_MSGBLOC ae ETAIL) = 
-. oe 171 . SEMANTIC List PST$W_DATAID]; ! Get parameter code detail 
: 174 \7¢ NMLS$AB_MSGBLOCK 47+ TERT] = NMLS_DSCBFOVF; 
: 175 17 NMLSBLO_REPLY (NMLSAB MSGBLOCK, MSGSIZE); | Build message 
; i 1e SSIGNAL_MSG (NMLSAB_SROBUFFER, .MSGSIZE); ! Signal error message 
; 178 176 END; 
; 180 178 ; Add descriptor entry for this parameter. 
: 18¢ 0186 " NMLSAW_PRM_DES C.NMLSGW_PRMDESCNT, POBSu_ INDEX} = .CPT_INDEX; 
; 18 13) NMLSAW_PRM_DES L.NMLSGW_PRMDESCNT, PDB$W_COUNT] = » LENGTH; 
; 136 91 é NMLSAW-PRM_DES C.NMLSGWPRMDESCNT, PDBSA-POINTER] = .POINTER; 
; 138 O18 NMLSGW_PRMDESCNT = .NMLSGW_PRMDESCNT + 1; ! Increment descriptor count 
: 188 0186 RETURN NML$_STS_SUC 
: 190 0188 1 END; ! End of NMLS$SAVEPARAM 


-TITLE NMLSPMANIP NML tama parameter manipulation 
e 
-IDENT \V04-000\ 


.EXTRN NMLSGB_EVTSRCTYP 
XTRN NAL SGQ-EVTSRCDSC 


“EXTRN NMLSGWEVTCLASS 
-EXTRN NMLSGB_EVTMSKTYP 
“EXTRN NMLS$GQ~EVTMSKDSC 
-EXTRN NMLSGW~EVTSNKADR 
-EXTRN NMLSGW-ACP_CHAN 
-EXTRN NMLSGL_LOGAMASK, NML$GQ_ENTSTRDSC 
SEXTRN NMLSAB_~QIOBUFFER 
-EXTRN NML$GQ~QIOBFDSC 
-EXTRN NMLSAB_EXEBUFFER 
-EXTRN NMLSGL-EXEDATPTR 
“EXTRN NML$GQ~EXEDATDSC 
“EXTRN NMLS$GQ"EXEBFDSC 
-EXTRN NMLSAB_RCVBUFFER 
EXTRN NAL $60 -RCVBF DSC 
-EXTRN NMLSAB~SNDBUFFER 
-EXTRN NML$GQ"SNDBFDSC 
-EXTRN NMLSGL-RCVDATLEN 
-EXTRN NMLSAB-CPTABLE, NMLSAB_MSGBLOCK 
EXTRN NAL $AB"EN ITY_fp 
-EXTRN NML AB-QUAL IFTER 1D 
“EXTRN NAL SAB“ENT YDATR 
“EXTRN NMLSAB"NML_NMV, NMLSAB_PRMSEM 
! 


12 
SPMANIP NAL internal parameter manipulation module 18-5 -1984 7:26:09 AX-11 Bliss-32 V4.0-74 P 
O%~000 NMLSSAVEPARAM” Check pereneter value - 1 ~3007 1382 99:48:92 ENML.SRE Wat PRANIP B3es se" (38 


.EXTRN NMLSAB_RECBUF, NMLSAL_ENTINFTAB 
XTRN NMLSAL~PERMINET 
NML$GB_CMD_VER 


-PS 
FORMAT 


ON 
NML$GB_OPTIONS 
NALSGL_PRS_FLGS 


L$_ OVF, NML$_QIOBFOVF 
NMLS$"RECBFOVF, NMASSEARCHFLD 
-EXTRN NMLSELD_REPLY, SBLDP 
-EXTRN NMLSERROR_1, NMLSERROR_ 


-PSECT SCODES,NOWRT,2 


001¢ 00000 .ENTRY NMLSSAVEPARAM, Save R2,R3,R4 : 0106 
4 000000006 00 9€ 0000 MOVAB NMLSAW_PRM_DES, R : 
3 000000006 00 9€ 000 MOVAB NMLSGW"PRMDESCNT, R3 : 
32 00000006 0 e 9010 NOVA NMLSAB“MSGBLOCK. R2 : 
50 04 AC A OO01A MULLS #16, CPT_INDEX RO + 0146 
F PUSHAB NML$AB_CPTABLECR : 
0000000060040 9F 0001 $aB_CPTABLECRO 0148 
5 ‘9 26 00099 more ae Ré e 
20 6 B1 0002C CMPW NMLSGW_PRMDESCNT, #32 + 0162 
A 1€ 0002F BLSSU ; 
62 DO 00031 MOVL #6, NMLSAB_MSGBLOCK > 0168 
04 =A BE 000 EGB #5, NMLSAB MSGBLOCK+4 + 0169 
0000000060040 9F 000 PUSHAB NMLSAB_PRMSEMCRO) : 0171 
08 a2 BO 9003F Vw  @(SP)+> NMLSAB_MSGBLOCK+8 : 
0C  A2 000000006 Hi DO 00043 VL #NML$_DSCBFOVF; NMLS$AB_MSGBLOCK+12 : 017 
4006 8F B 48 PUSHR #*M<R2,SP> : 017 
000000006 00 02 FB O04F CALLS #2, NAL SBLD_REPLY © inet 
gma $9 Fb SSS sito FRR p pours : 
000000006 90 FB CALLS #3, LIBSSIGNAL : 
0 6 3C 1$: MOVZWL NMCSGW_PRMDESCNT, RO : 0180 
6440 7F PUSHAG NMLSAWPRM_DESCRO) : 
9€ 4 aC 80 MOVW  CPT_INDEX, + : 
A440 7F 00 23 PUSHAQ NMLSAW_PRM_DES+2CRO) + 0181 
9E aC 80 MOVW LENGTH? a(SP)+ F 
4 A640 7F 00070 PUSHAQ NMLSAW PRM_DES+4(RO) > 0182 
9E C aC DO 1 MOVL POINTER, atSP)+ : 
6 B 3 INCW  NMLSGW_PRMDESCNT > 0184 
50 1 p MOVL #1, RO > 0186 
4 O008A RET : 0188 


3; Routine Size: 139 bytes, Routine Base: S$CODE$ + 0000 


H 12 
SPMANIP NAL internal parameter manipulation module 16-Sep-1984 00:26:09 AX-11 Bliss-32 V4.0-74 P 7 NF 
-000 NMLSCHKPRAVAL” Check poreneter value ~ 13-808-1 382 90:66:08 NML .SRC War PRante o3004 vt (4) ve 


gy § 1 1 ZSBTTL aoe, SCORER. Check parameter value’ : 
: } : } GLOBAL ROUTINE NMLSCHKPRMVAL (CPT_INDEX, LEN, ADR) = : 
; 195 192 1 !4¢ 
3; (1 1 1 ! FUNCTIONAL DESCRIPTION: 3 
3; 9 132 1! 3 
; 198 195 1! This routine verifies that parameter values from the NICE message ; 
3 4 136 ! : fall within valid boundaries. : 
; 91 198 | FORMAL PARAMETERS: : 
; 08 4 1/ CPT_INDEX Index into change parameter table. ; 
; 1! LEN Byte count of parameter. 3 
; 05 8¢ : ADR Address of parameter. . 
; 0 1 | IMPLICIT INPUTS: : 
; 09 3 i NON : 
> 210 $9 1 . ; 
: 1) 0 +4 , : IMPLICIT OUTPUTS: : 
0 ee 8 | ieee 3 
> 215 0 1 i ROUTINE VALUE: ; 
: 1 0 13 i COMPLETION CODES: é 
; 4 3 1? : Returns success (NML$_STS_SUC) if the paramter value is within range. 3 
; $f 0 7 | | SIDE EFFECTS: ; 
; § o 13 ! ! An error message (NMASC_STS_PVA) is signalled if the value is bad. : 
i ge O22) 1 in ; 
i 926 § BEGIN 3 
; 228 5 LOCAL : 
; 9 $ MAX, ! Maximum parameter value (0 if no Limit) 3 
: MIN, ! Minimum parameter value 3 
; 1 8 VAL ' Parameter value to compare 3 
: § 4 STATUS; ! Status of the range checking operations : 
: 1 i The parameter semantic table index is determined by looking in the change : 
: 5 § } parameter table. : 
; "BIND ; 
; 5 CPT_LIST = NALSAB th C.CPT the 0,0,0,0) : 
: 9 : BBLOCK CCPTSK_ENTRYLEN 3 
: 249 SEMANTIC_LIST = NMLSAB_PRMSEM C-CPT_LIST CCPTSw_PSTINDEX), 0.0,0,0) ; 
; re. 3 : BBLOCK CPSTSK_ENTRYLEN); : 
: 43 40 ! Pick up the values for comparison. ; 
> 265 43 "MIN = .SEMANTIC_LIST FPSTSL _MINVALUE ; ; 
: 4 & MAX = SEMANTIC _LIST CPSTSL_MAXVALUE J; : 
5 rtf rf STATUS = NML$_STS_SUC; : 
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NMLSCHKPRAVAL Check parameter value 


! If the par 


1986 92:88:98 ERC. SRCINA 


then get the byte count (a a hy If the 
ate 


$ not a string t 
(byte, word, longword). 


aed CPSTSB_FORMAT) EQLU NMLSK_STRING 


n get the value of the appropr 


VAL = .(.ADR)<0,.LEN*8>; 
: Check the minimum parameter value. 
IF .VAL LSSU .MIN 
THEN 
STATUS = NMLS_STS_PVA; 
If the maximum value has a zero in it then don't bother to check it. 


or a GTRU OMAK 
STATUS = NMLS_STS_PVA; 
: If the parameter is not within range then signal a parameter value error. 
If NOT .STATUS 
NMLSERROR_2 (NMASC_STS_PVA, 
RETURN NML$_STS_SUC 


AC OA 
sovseoeeseesy 


909M" 9 — OOOO OOwnon 


Wn rm — "69 On "QOoomMmean 


=32 v4.0-74 
; We.g3084 


: 


width 


-SEMANTIC_LIST CPST$W_DATAID]); 


! End of NMLSCHKPRMVAL 


SCHKPRMVAL, Save R2,R3,R4.R5 
#10, CPT_INDEX 
NML$AB_CPTABLECRO 
a(SP)+~ RO 
#16, RO 
NML$AB_PRMSEMCROJ, R1 
4(R1), MIN 


N, VAL 
a3, LEN, RO 
#0; RO, @ADR, VAL 
AL, MIN 

P22, STATUS 

MAX 

4$ 


pF 


| 
j 
| 
| 
| 
| 
—— 
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VAL, MAX ; 0265 
#32 tye TY 
STAT 

RI). =($P) 
#16, =(SP) 

oF “NMLSERROR_2 
#1, RO 
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; Routine Size: 102 bytes, Routine Base: S$CODES + 0088 


SPMANIP NAL internal parameter manipulation module -$ep-1984 00:26:09 AX-11 Bliss-32 V4.0-74 Pa 10 
yos~000 NMLSBLDSETOBF Bul ld SET/CLEAR G10 but fers 16-00-1984 90798598) EAAL SRESNALPRANYE 635, * os 
q ZSBTTL "NMLSBLDSETOQBF Build SET/CLEAR Q10 buffers’ 
GLOBAL ROUTINE NMLSBLDSETQBF (FUN 


KEVIDT; REVLENG KEYADR1, 


dS 
3 1 
: 
; nroarbéc' KEYLEN KEVADR2, 
; 1 BrDSt. 
: 1 VACD ay tae, 
3 5 ! : NOVALUE = 
: 1 {+4 
: : } FUNCTIONAL DESCRIPTION: 
; a : This routine builds a Q10 buffer for parameter modifications. 
; % FORMAL PARAMETERS: 
; 9% 1: FUNC Control function - NFBSC_FC_SET or NFBSC_FC_CLEAR 
3 95 1! Database | 
; 38 1/ KEYID1 Search key one ID 
; 1 97 1 KEYLEN1 Search key one length 
; 3 98 1! KEYADR1 Search key one address 
3; 1 KEYID2 Search key two 
; 304 00 1! KEYLEN Search key two length 
$ 5 01 1! KEYADR Search key two address 
; 5] 8 1/ NFBBFDSC Descriptor of control function buffer (P1) 
; 30 03 1: NFBDSC Descriptor of $ Fesul ting control function butter (P1) 
; 308 Be 1: pepreee Descriptor o 
; 309 5 1 P2DSC Descriptor of resulting P2 buffe 
3 10 ii VALBF DSC Descriptor of parameter value buffer (P4) 
3 \} : VALDSC Descriptor of resulting parameter value data (P4) 
: ig 08 1/ NMLSAW_PRM_DES List of parameter descriptors 
3 13 1? : NMLSGW"-PRMDESCNT Count of parameter descriptors 
; 16 ig OUTPUTS: 
; 18 \3 : Output buffers and Jescriptors built. 
; 320 16 1 
: ; 3H BEGIN 
; 1 MAP 
: 4 0 NFBBFDSC : REF DESCRIPTOR, 
3 5 1 NFBDST : REF DESCRIPTOR, 
: § § P2BFDSC : REF DESCRIPTOR, 
3 P2DSC : REF DESCRIPTOR, 
; & VALBFDSC : REF DESCRIPTOR, 
: 5 VALDSC : REF DESCRIPTOR; 
> 331 $ LOCAL 
3 § 8 MSGSIZE 
; CPT_INDEX, 
: NFB: REF BBLOCK CNFBSC_LENGTH), 
3 5 VALADR, 
3 39 ¢ VALPTR, 
HY VALLEN, 
; 338 VALTYP, 


Be Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Fe Se Fe Ge Se Fe Se Se Fe Se Se Fe Se Se Se Se Se Fe Se Se Se Se Se Se Se Ge Fe Se Se Se Se Se ee Se Se Ge Sees 


| 
2 
$ 
45 
i 
: 
: 
: 


ternal parameter manipulation module 18-56 $ep-1984 00:26:09 AX-11 Bliss-32 V4.0-74 
DSETOBF. Build SET/CLEAR Q10 butters at 7 99:46:98 NML.SRCINMLPMANIP.B32; 
CPT: mer BBLOCK poor es “ENTRYCENS; 
PST: REF BBLOCK LPSTSK_ENTRYLEN; 


VALBUF = VALBFDSC CDSCSA_POINTER] : REF BBLOCK; 


' 
Setup NFB descriptor and header 


NFBDSC CDSCSA_POINTER] = NFB = .NFBBFDSC CDSCSA_ POINTER]: 

chs F LL 0, sof! OFF SET(NFBSL_FLDID), NFB); ! Zero NFB header 
NEB Nres6 =bAtaaast} = .DB; 

NFB CNFBSL-SRCH_KEY] = .KEYID1; 

NFB NFBSL “SRCH2_KEY) = .KEYID2; 

NFB = NFBCAFBSL_FLDID); 


i Build the P2 buffer. The P2 buffer contains the valurs of the search 
i keys. The search keys are used by NETACP to identify the database entry 
to be updated. 


SELECTONEU -KEYID1 OF 


Nresc rfei 1583"; 5 borg _f! filters (sink node) 
BP2 (0, .(.KEYADR1)< 0, .P2BFDSC, .P2DSC); 


(NFBSC_ESI_ SNK}: ogging sink 
NACSBLDP2 (0, .(.KEYADRIS<OcS, “15 0+ .P2BFDSC, .P2DSC); 


CNFBSC_NDI_ADD): Node (by address) 
NMCSBLBP2 (0, ° (.KEYADR1}<0° 16>, -1, 0, .P2BFDSC, .P2DSC); 
CNFBSC _XG1_GRPJ: ! Protocol Groups. 


i Protocol Group is siueys qualified with a DTE ID. The DTE ID 
is the second search key. 


NMLSBLDP2 (.KEYLEN1, .KEYADR1, .KEYLEN2, .KEYADR2, 
.P2BF pst, .P2DSC);: 


CNFBSC_XNI_NET): 
BESIN 
i af pogeres or | 1 Length is zero, then the Q10 is for the “active 
! x-25 Protoco network Pass NMLS$BLDP2 the code to indicate that 
the key value is a word. 
if oKEVLEN] EQL 3° THEN 
WL SBLDPS. (. KEYCENT, -KEYADR1, -1, 0, .P2BFDSC, .P2DSC); 


COTHERWISE): 
NALSBLDP2 (.KEYLEN1, .KEYADR1, -1, 0, .P2BFDSC, .P2DSC); 
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W12 _ 
SETICLEAR G10" bot iuce erent aee 00 eb 0g er RO AaEpaante O30" 


TES; 


i For each entry in the parameter descriptor List, add its ACP identifier 
to the NFB and its value to the value buffer. 


NCR 1 FROM 0 TO .NMLSGW_PRMDESCNT - 1 DO 


CPT_INDEX = .NMLSAW PRM DES C.1. POBSW INDEX); 

CPT~= NMLSAB_CPTABLE C[.CPT TEINDE x, 0,0,0,0); 

PST = NMLSAB PRISER c. cpr peers WwW PSTINDEX], 0,0,0,0) 

VALLEN = .NALSAW_PRM_DES C.1, POB$W_COUNTI; 

VALADR = .NMLSAW_ PRA BES C.1, POBSA_POINTER; 

IF (. VALPTR + ,VALLEN + 2 LSSU 
;VALBFDSC EDSCSA_ POINTER] + .VALBFDSC CDSC$W_LENGTHJ) AND 
(nr 4 DSCSA_POINTER] + .NFBBFOSC CDSC$W_LENGTH)) 


THEN 


BEGIN 
NFBCO,0,32,0) = .PST CPSTSL_NFBIDI; 
NFB = .NFB + 4; 


IF .VALLEN GTRU 0 
THEN 


BEGIN 
VALTYP = .(PST CPSTSL_NFBID) 
<SBITPOSITION (NFBSV_TYP), 
SFIELDWIDTH (NFBSV_TYP)>: 
IF .VALTYP EQLU NFBSC_TYP_STR 
BEGIN 


(.VALPTR)<0,16> = _ YALLEN; 


! Set count 
VALPTR = .VALPT 


VALPTR = CHSMOVE (. VALLEN, .VALADR, .VALPTR); 
END 

ELSE 
BEGIN 
(VALPTR) <0, 32> = (.VALADR)<0, . VALLEN®8>; 
VALPTR = .VALPTR +4; : Increment data pointer 
END; 

END; 


END 
ELSE 
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BEGIN 


NML$B 


SSIGNAL_MSG 


£0,0,32,0 
NFBDSC Psseey 


] = NFBSC_ENDOFLIST; 
LENGTH) = .NFB = 


al parameter een ip 
QBF Build SET/CL 


N 12 
ulation neque 19-3001 
AR Q10 buffers 14-Sep-1 
OCK C(MSBSL_FLAGS] = “Ht ta MS 
OCK [MSB$B_CODE) = NMASC_STS 
OCK CMSBSL-TEXTJ = NML$_G10B8 
Y (NMLSAB_ASGBLOCK, MSGSIZE) 
(NMLSAB_SADBUFFER, .MSGSIZE) 


.NFBDSCCDSCSA_POINTER] + 4; 


VALDSC COSCS$W_LENGTH] = .VALPTR = .VALDSCCDSCSA_POINTER); 
! End of NMLSBLDSETQBF 
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3he 93:88:98} ENML SREINALPRANIP. 304 Ry 
G_ FLD; ! Set message text fla 

Mor: . 
FovF ; 
; | Build message 
; ! Signal it 
SENTRY NML SBLDSETOBF , Save R2,R3,R4,R5,R6,R7,R8,- =; 0279 
R9_R10,R11 : 

SUBL2 #26, SP : 

PUSHL VALBFDSC + 0339 

ADDL3 #4. NFBBFDSC, RO : 0346 

MOVL RO), NF : 

ADDL3 #4, NFBDSC, R1 : 

MOVL. NFB, (R ; 

MOVCS #0, (SP), #0, #16, (NFB) + 0347 

MOVB = FUNC, _(NFB)+ : 0348 

MOVB DB, {(NFB) + 0349 

MOVL KEYID1, RO : 0350 

MOVL RO, 3 (NFB) : 

MOVL. KEYID2, 7 (NFB) : 0351 

ADDL2 #15, NFB 3 0352 

CMPL RO, #100728848 : 0361 

BEQL 2$ 3 

CMPL RO, #117506064 > 0364 

BNEQ 1$ 3 

MOVQ P2BFDSC, -(SP) + 0365 

CLRL = = (SP) F 

MNEGL #1, -(SP) ; 

MOV ZBL KEVADRI, -(SP) ; 

CPL RO, #33619986 : 0367 

MOV P2BFDSC, -(SP) : 0368 

CLRL =(SP ; 

MNEGL #1, -(SP) ; 

MOVZWL @KEYADR1, -(SP) : 

gat” | 

CMPL RO, #167903297 : 0370 
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NML.SRCINMLPMANIP.B32; 
5$ 
P2BFDSC, =(SP) 
S YLEN2, =(SP) 
RO, #151126081 
KEYLEN1 


6 

W2 KEYLEN1 
POBFDSC, -(SP) 
-(SP) 


»_4(R11) 
ASE PES 12(SP) 


CPT 


#16, RO 
NML$AB_PRMSEMCRO] 
ES+ 


NML SAW_PRM DES+2C 1) 


PST 


$ 
a(SP)+> VACA 
2(VALLEN) CVALPTRI, R1 
AVALBEDSC, Re 3 


eb ° S 
R2, (R4), RO 
R1, RO 


4(R6), R1 
ANFBBFDSC, R2 
#4, NFBBFOSC, R4& 
R2, (R4), RO 

1, RO 


11 

#12, PST, RO 
R85 (NFB) + 
VALLEN 


1 

#14, PST, RO 

#0, #2, (RO), VALTYP 
vA TYP, #2 
VALLEN, (VALPTR)+ 

VALLEN, @VALADR, (VALPTR) 


#5, VALLEN. RO 
#0, RO, @VALADR, (VALPTR)+ 


NML internal paramete 
NMLSBLDSETQBF Build 


SENSE 


, 000000006 


50 28 
28 «BC 
68 
; Routine Size: 447 bytes, 


; 471 


0467 1 


Routine Base: 


r pen ipuler ign module 1 
SET/CLEAR Q10 buffers 1 
4 pO o0181 
8 $B Beh 
00000000G 8F 1¢f 
146 =A F OO17A 
000000006 8 F 120 
0 FB 001 
14 Ar pp 18A 
000000006 F 001 8 
01F 90000 F DD Q01 
90 3 6C*F 199 
A oc Ag F 1% 
0 | 1A 
FFIE 1 QO1A7 
66 D4 OO1AA 
AC 04 C1 QO1AC 
56 80 C2 00181 
28 4 Ai 001B4 
5 046 AB A3 00189 
04 001BE 


SCODES + OOF1 


12$: 


13$: 
14$: 


p=1986 f2i8 


BRB 
MO 


8:98 


12$ 

#4, NMLSAB_MSGBLOCK 

#5. NMLSAB-MSGBLOCK+4 

sNAL$ Q1OBFOVF, NML$AB_MSGBLOCK+12 
NMLSAB_MSGBLOCK 

#2, NMCSBLD_REPLY 


NMLS NDBUFFER 


J 

f, LIBSSIGNAL 
12(SP), I, 13$ 
14$ 


AX=11 Ol teen V4.0-74 
NML.SRCINMLPMANIP.B32; 


(NFB) 
NFBDSC, RO 


#4, R6, ANFBDSC 
4(R11). VALPTR, (R11) 
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NMLSPMANIP NML_internal parameter manipulation module -Sep-1984 00:26:09 AX-11 Bliss-32 V4.0-74 P 6 NM 
v04-000 NMLSADD_ FIELDS Add pareneter tletds to record o28 71382 99:8 716 NML.SRC NALPAANIP 03224 = ) | 

lds r 

TND = 


1 
1 
ZSBTTL ‘NMLSADD FIELDS Add parameter re 


: 473 468 1 ds to record’ ‘ 
; the ni : GLOBAL ROUTINE AMLSADD_FIELDS (BUFSIZE NDSC) ; 
3 $78 ree 1 !e¢ ; 
3 ot rt! ! FUNCTIONAL DESCRIPTION: : 
3 4 ff : This routine adds fields to a permanent data base record. ; 
>; 481 47 1 ! FORMAL PARAMETERS: é 
; «48 0477 1! 3 
; «48 0478 1! BUFSIZE Maximum size of the record buffer. : 
3 tke rh 44 ! RTNDSC Address of the current record descriptor. : 
; 486 Bo8) 1 ! IMPLICIT INPUTS: ; 
: 487 04 ; 1! : 
; 488 0485 1! NONE : 
: 489 484 1! ; 
: 490 485 1 ! IMPLICIT OUYPUTS: : 
; 491 0486 1! 

; 49 0487 1! The record descriptor pointed to by RTNDSC is updated to include 

; 49 et : any fields added to the record. 

; 495 0490 1 ! ROUTINE VALUE: 

5 0491 1 ! COMPLETION CODES: 

; 497 0492 1! 

; 498 0493 1! NONE 

; 499 0494 1! 

; 500 0495 1 ! SIDE EFFECTS: 

; 501 0496 1! 

3 206 0497 1! NONE 

; WW 0498 1! 

: 504 0499 1 !-- 

3 305 0500 1 

; 506 0501 BEGIN 

3; 507 £44 

; 508 050 LOCAL 

; 509 0504 CPT_INDEX, ! Change parameter tabie index 

; 510 0505 SEM_INDEX, ' Semantic table index 

; $13 0506 FLOCEN, ' Field Lengt 

3 21g 0507 FLDADR ' Field address 

; 51 0508 SGSIZE, i Message size _ 

; 514 0509 ROUTINE_ADR, ! Temporary routine address 

3 316 Baie ATUS; 

3 i$ 0312 INCR I FROM 0 TO .NML$GW_PRMDESCNT - 1 DO 

; 319 Betz BEGIN 

3 320 515 FLDLEN = .NMLSAW_PRM_DES fet PDB$W_COUNT]; 

: 533 316 FLDADR = .NMLSAW-PRM~DES C.1, POBSA~POINTER); 

: 0518 CPT_INDEX = .NMLSAW_PRM_DES C.1, PDBSW_INDEX); 

: 526 519 ROUTINE ADR = .NMLSAB CRTARLE -CPT_INDEX CPTSA DEF INE_RTNJ; 

; 525 3 9 SEM_INDEX = .NMLSAB_CPTABLE C.CPT_INDEX, CPTSW_PSTINDEX]; 

5 § 5 § 4 IF NOT (STATUS = 

3 8 5 4 (.ROUTINE_ADR) (NMLSAB_PRMSEM C.SEM_INDEX, 0,0,0,0). 

: 529 0524 4 .BUFSITZE, 


; Routine Size: 100 bytes, Routine Base: S$CODE$S + 0280 


NAL SPMANIP NAL internal parameter manipulation module 18 
v04-000 NMLSADD. FIELDS Add pereneter fields to record 1 
so 5 4 -FLOLEN, 
; 1 § 4 -FLDADR 
; ¢ *RTNDSCS) 
; § THEN ETURN STATUS 
: 5 2 0 
3 531 END; 
- g838 
3 8 5 RETURN NML$_STS_SUC 
; 9 82 4 
; 540 535 END; 
O3FC 00000 
59 000000006 68 E $000 
55 000000006 00 3C€ 000 
54 01 CE 0001 
47 11 0001 
6944 7F 0001 
58 E 3 0018 
02 A944 ~7F 00018 
57 9 0 001F 
FE A944 «07F 00022 
53 9 2 0026 
51 53 OA C5 00029 
0000000060041 9F 0002D 
56 9E dO 000 
0000000060041 9F 00037 
52 9 C 0003E 
08 AC ODD 00041 
57 DD 00044 
58 DD 00046 
04 AC 4 8904 
51 52 04 0048 
0000000060041 9F O004F 
66 5 Fe 0056 
of 9 E9 00059 
B5 4 rs 005C 
50 01 OD BO088 
04 0006 
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NML..SRCINMLPMANIP.B32; 


! End of NMLSADD_FIELDS 


RASS _STELES, Save R2,R3,R4,R5,R6,R7,R8,- 


NMLSAW_PRM_DES+2, R9 
NL SGU_PRIDESCNT. R5 


NMLSAW_PRM_DES+2(1) 
asP)+, FLBLEN 


NM 
a(SP)+, sds ADR 
NM ABLECR1) 
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LOBAL ROUTINE AMLSDEL_FIELDS (RTNDSC) = 
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‘ee 
! FUNCTIONAL DESCRIPTION: 


Ft a 


This routine deletes the entire List of parameters in the parameter 
descriptor buffer from the specified record buffer. 
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PUTT 
Wn—O000 


‘ RTNDSC contains the address of the current record descriptor. 
i IMPLICIT INPUTS: 
NMLSGW_PRMDESCNT contains the number of parameter descriptors. 


NMLSAW_PRM_ DES is a List of parameter descriptors. 
NMLSAB"PRMSEM is the parameter semantic table. 


Wmv 
OONOUE 


i IMPLICIT OUTPUTS: 


The record descriptor pointed to by RINDSC is updated to reflect 
any fields deleted from the record. 


Phebe eb ede dh dh cadre rdal die dada de dch db “dab dub dub deb bh odbb hh dl 


DPDPAEDPED AAAs BB EE EEE EE 


i ROUTINE VALUE: 
COMPLETION CODES: 


Always returns success (NMLE_STS_SUC). 
i SIDE EFFECTS: 
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60 

61 

85 

64 

65 

e7 

68 

69 

70 

71 

78 

7 NONE 

7% 

75 9 -- 

76 70 

77 71 BEGIN 

78 re 

79 7 LOCAL 

80 7% CPT_INDEX, 

81 75 SEM~ INDEX, 

Be 576 ROUTINE _ADR; 

84 578 INCR_ I FROM 0 TO .NMLSGW_PRMDESCNT - 1 DO 

i 379 BEGIN 

8 a CPT_INDEX = .NMLSAW_PRM_DES C.1, PDBSW_INDEX); 

88 582 ROUTINE ADR = .NMLSAB CBTABLE “CPT_INDEX, CPTSA_PURGE RTNI; 
89 38 SEM_INDEX = .NMLSAB_CPTABLE C.CPT_IRDEX, CPTSwW_PSTINDERJ; 
91 585 (.ROUTINE_ADR) (.RTNDSC 

4 3 NMLSAB_PRMSEM C.SEM_INDEX, 0,0,0.0)); 
94 5 END; 

95 4 

4 396 RETURN NML$_STS_SUC 

98 592 END; ! End of NMLSDEL_FIELDS 
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007¢ .ENTRY NMLSDEL_FIE LDs S, Save R2,R3,R4,R5,R6 3 0537 
55 000000006 i é HOV ZL NAL SGM St PRMD SCNT, RS ; 0376 
C BRB ‘ ; 
0000000060044 7F 1$ PUSHAQ NMLSAW_PRM_DESCIJ + 0581 
9E 3 1 MOVZWL a(sP)ee CPT_INDEX ; 
50 OA ; 1 MULL3 T_INBEX, RO + 0582 
0000000060040 9F 1 PUSHAB _CPTABLE46CROJ ; 
3 0 000 MOVL a(SP)+, cPTABLet ADR g 
0000000060040 9F 00026 PUSHAB NMLSAB_ ROJ + 0583 
9E ¢ 0020 MOVZWL a(SP)+ 4 senel NDEX : 
50 04 0030 ASHL #4, NDEX, RO : 0586 
PUSH (she. RMS MCR : 
0000009060040 00 PUSHAB NALS Me emtroJ 
Bh FB 900 E CALLS nee ROUT INE _ADR) : 
C9 54 F2 00041 2$ AOBLSS 1$ + 0578 
50 01 »O 00045 MOVL #1 hb + 0590 
04 00048 RET + 0592 


; Routine Size: 73 bytes, Routine Base: SCODES + 0314 
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SPMANIP NAL internal parameter manipulation module 16-Sep-1984 00:26:09 AX-11 Bliss-32 V4.0-74 P 
¥O%~000 NMLSREADPARLIST Show poreneters from buffer 13-00-1382 99:68:02 YNML SRE NMLPMANIP.B32; von (BS 
ZSBTTL tine ton ekeis Show parameters from buffer’ 
; GLOBAL ROUTINE NMLSREADPARLIST (BUFDSC, MSGSIZE, TABDSC, DATDSC) = 
tee 
: } FUNCTIONAL DESCRIPTION: 


This routine builds a message from the List of parameters specified. 
FORMAL PARAMETERS: 


S3s8s 


BUF DSC Address of message buffer descriptor. 

MSGSIZE Address of longword to contain ryoul cing message size. 
TABDSC Address of parameter table descriptor. 

DATDSC Address of data buffer descriptor. 


IMPLICIT INPUTS: 


PAACAAAAO 
ee el eet 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
! COMPLETION CODES: 


Always returns success (NML$_STS_SUC). 
! SIDE EFFECTS: 


' 
i 
BEGIN 


TABDSC : REF DESCRIPTOR; 


LOCAL 
INDEX; 


BIND 
TABLE = TABDSC CDSCSA_POINTER] : REF BBLOCKVECTOR C, 6); 


FUR $0 OBNOAUNE UN $8 OONAUES UN HOO ONOU Sw 


i If table address is null then the specified information type is not 
: applicable to this entity. 


IF .TABLE EQLA 0 
TH 


SE0EEE 


EAI OPOPOPOPOPOPOPOPUNPIPOPINIPONINIPUNIDD 4 9 2 tt 
. 


Be Se Se Be Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Se Fe Ge Ge Ge Ge Ss Se Se Se Se Se Ge Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Se ee Se Se Se Ge ee Se ee 


DONOUS WOO 


650 

631 NMLSERROR_1 (NMASC_STS_FOP); 

$36 INCR 1 FROM 0 TO .TABDSC COSC$W_LENGTH] - 1 00 

694 BEGIN 

656 INDEX = .TABLE [.1, 0,0,16,0); ! Get table index 


Sgegsess 


3; Routine Size: 
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NAL internal parameter manipulation module 1b-5e -1984 26:09 AX-11 Bliss-32 V4.0-74 
NMLSREADPARLIST Show poreneters from buffer 1 =300- 138% 99:48:98 FAME. SRC War phan\e o3004 
(. TABLE C.1, 2,0,32,0)) a 5 PRMSEM C.INDEX, 0,0,0,0), 
-MSGSIZE, 
¢ -DATDSC); 
$ END; 
8 RETURN NMLS$_STS_SUC 
0 END; ! End of NMLSREADPARLIST 
003c¢ 00000 -ENTRY WNMLSREADPARLIST, Save R2,R3,R4,R5 
54 0c AC 04 Ci 3286 ADDL3 #4, TABDSC, R4 
64 05 0000 TSTL (R4) 
OA 12 00009 BNEQ 1$ 
7E go CE 00008 MNEGL #13, -(SP) 
000000006 99 1 €B O20E CALLS #1, NMLSERROR_1 
0c BC 3C 00015 18 MOVZWL @TABDSC, RS 
52 1 cf Bote MNEGL #1, I 
0 11 O0001C BRB 3$ 
51 52 6 C5 OOO1E 2$ MULL #6, I, R1 
51 64 £0 000 ADDL2 (Rd) 
53 61 C 000 MOVZWL (R1), INDEX 
10 AC 4 00028 PUSHL DATD 
43 04 AC D 4 B MOVaQ BUFDSC, =-(SP) 
50 5 04 78 0002F ASHL #4, INDEX, RO 
0000000060040 9F 00033 PUSHAB ees, PRMSEMCROJ 
02 81 4 Fe 4 A CALLS #4, a2TR1) 
dC 52 5 Ff2 OOO3E 3$ AOBLSS R5, I, 2 
50 01 D0 00042 MOVL «#1. - RO 
04 0004 RET 


70 bytes, Routine Base: $CODE$S + 035D 
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NAL internal parameter manipulation module 18- Sep-1984 ] AX-11 Bliss-32 V4.0-74 Page 22 
NMALSSHOWPARLIST Show poraneters from Q10 buffe 14-Sep- aa ts r 99: g6: 9° NML.SRCINMLPMANIP.B32; . (35 
ZSBTTL "NMLSSHOWPARLIST Show parameters from Q10 buffer’ 
GLOBAL ROUTINE NMLSSHOWPARLIST (BUFDSC, MSGSIZE, TABDSC, DATDSC, DATPTR) = 


144 
! FUNCTIONAL DESCRIPTION: 


This routine builds a message from the List of parameters specified. 
FORMAL PARAMETERS: 


BUF DSC Address of message buffer descriptor. 
MSGSIZE Address of longword to contain resulting message size. 
Address of parameter table descriptor. 
DATDSC Address of data buffer descriptor. 
DATPTR Address of data buffer pointer. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


> "J 
OPA AAI AAPM INIPINIPINII IIIA a at nt hd dd 


pees Always returns success (NML$_STS_SUC). 
SIDE EFFECTS: 
0691 
8036 NONE 
069 
0694 -- 
0695 
BEGIN 
0698 
+44 TABDSC : REF DESCRIPTOR; 
701 LOCAL 
7 § INDEX; 
70 
7 BIND 
5 TABLE = TABDSC CDSCSA_POINTER] : REF BBLOCKVECTOR C, 6); 
798 INCR I FROM 0 TO .TABDSC CDSCS$W_LENGTH] - 1 DO 
4 BEGIN 
my INDEX = .TABLE C.1, 0,0,16,0]; ! Get table index 
A (TABLE C.1, 2,0,32,0)) SBUEDSE C.INDEX, 0,0,0,0), 
714 size, 
715 tose 
216 BaTBSE 
71 


<z | 


Kk 13 
MOSS” ARLAANEMERALYTORESEavauneee Panett ore HECRESBEE 9996302 YAK eBSdateRd: B52 ree] 
; 158 HH a 
f 3 f RETURN NML$_STS_SUC 
. 722 END; ! End of NMLSSHOWPARLIST 


003¢ 000 ENTRY NiNL SSHOWPARL IST, Save R2,R3,R4,R5 : 0662 

55 oc ac 04 1 900 ADDL3 TABDSC, R : 20 

54 oc ec 3 MOVZWL @TABDSC, R4& + 0707 

52 cr 9008 MNEGL s. I + 0713 

51 52 : C5 a916 1$ MULL #6, 1, R1 + 0710 
51 65 ¢) 00014 ADDL2 (R5),°R1 : 
53 61 3C 00017 MOVZWL (R1). INDEX F 

7E 10 AC 7D GOO1A OV DATDSC, -(SP) + 0715 

ze 04 AC 2 OO1E MOVQ BUFDSC, =(SP) + 0713 

50 5 4 78 000 ASHL #4, INDEX, RO + 0712 
0000000060040 9F 00026 PUSHAB NMLSAB_PRMSEMCROJ : 
02 e1 05 Fe 0002D CALLS #5, a2tR1) : 

DB 2 54 F2 00031 2$ AOBLSS R4. I, 1$ > 0707 

50 01 00 00035 MOVL #1. RO : 0720 

04 00038 RET + 0722 


; Routine Size: 57 bytes, Routine Base: S$CODE$ + 03A3 
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1 
1b-$e -1984 00:26:09 AX-11 Bliss-32 V4.0-74 
DALLDES Build parameter descriptors from 14-S ats 1 99:35:93 YNML.SRE NALPHANIP.B32: 
e 


e 
ZSBTTL aM $8) DALL DES Build parameter desc {eters from record’ 
= 


r 
GLOBAL ROUTINE NMLSBLDALLDES (RECDSC, TABDSC 


tee 
: FUNCTIONAL DESCRIPTION: 


This routine is used by SET ALL functions to build parameter 
descriptors from a permanent data base record. 


FORMAL PARAMETERS: 


RECDSC Address of the current record descriptor. 
TABDSC Address of parameter table descriptor. 


IMPLICIT INPUTS: 

NMLSAB_PRMSEM is the parameter semantic table. 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 


COMPLETION CODES: 

Always returns success (NML$_STS_SUC). 
SIDE EFFECTS: 

NONE 


RECDSC : REF DESCRIPTOR, 
TABDSC : REF DESCRIPTOR; 


BIND 
TABLE = TABDSC CDSCSA_POINTER] : REF BLOCK; 


NMLS$GW_PRMDESCNT = 0; ! Reset parameter descriptor count 
INCR I FROM 0 TO .TABDSC CDOSCS$W_LENGTH] - 1 DO 
BEGIN 


FLDADR = 0; 

IF NMASSEARCHFLD (.RECDSC 
“TABLE €.1,0,16,0], 
FLDSIZE, 


PY 


413 
int 16-Sep-1984 00:26:09 AX-11 Bliss-32 V4.0-74 P 5 

=000 SBLD 13xg08=1 38s 99:88:98 PANT aed SS eaaw te O35, age 483 
2 7 FLDADR) 
: i , i 3 THEN GIN 
. ? ; 7 a 4 
; 193 g 1 4 INDEX = .TABLE (.1,16,16,0); 
: 795 7 : 4 NMLSSAVEPARAM (. INDEX 
: 7 787 & FLOSIZE, 
; res 4 -FLDADR); 
: 798 7 END; 
3 44 res END; 
3 8 73 RETURN NML$_STS_SUC 
: 80 794 END; ! End of NMLSBLDALLDES 


sENTRY NMLSBLDALLDES, Save R2,R3,R4,R5 


3¢ 00000 F 
SE 08 ce 99008 SUBL ¢ : ; 
53 08 AC 04 ¢€1 0000 ADDL3 #4, TABDSC, R3 + 0768 
000000006 00 84 0000A CLRW § NMLSGW_PRMDESCNT + 0770 
54 08 BC 3¢ 90010 MOVZWL @TABDST, R4 + 0772 
52 gi CE 00014 MNEGL #1, I : 0777 
0 11 00017 BRB 2$ : 
6E D4 00019 18: CLRL - FLDADR : 0775 
5E DD 00018 PUSHL SP : 0777 
AE OF 90010 PUSHAB FLDSIZE ; 
00 B34 oF 0020 PUSHAL @0(R3)C1) : 0778 
7E 9 C 00024 MOVZWL a(SP)+, -(SP) é 
04 AC 0D 00027 PUSHL R : 0777 
000000006 00 04 FB 0002A CALLS #4, NMASSEARCHFLD F 
15 9 E9 00031 BLEC ~—=_«aRO, ; 
00 8342 DF 000 PUSHAL @0(R3)(1) + 0784 
55 9E 10 10 EF 00038 EXTZV #16, #16, a(SP)+, INDEX : 
6— ODD Boar PUSHL FLDADR 3; 0788 
08 AE DD 0003F PUSHL FLDSIZE : 0787 
55 DD 0042 PUSHL INDEX : 0786 
FBDB CF 3 b6C+*rFh 004 CALLS #3, NMLSSAVEPARAM ; 
cc 52 4 fF 0049 2$: AOBLSS R4, I $ 3; 077 
50 01 DO 0004D MOVL #1. RO : 079 
04 00050 RET + 0794 


; Routine Size: 81 bytes, Routine Base: SCODES + 03DC 


N 13 
SPMANIP NAL internal parameter manipulation module 16-Sep-1984 00:26:09 AX-11 Bliss-32 V4.0-74 p 
yo%~000 NMLSBLDALLDES” Build poreneter descriptors from 13-80 8=138e 90:66:98 FAME .SRe NMLPMANIP.B32; age 498 


3 5 795 1 END 
s 80g O36 1 
3 797 0 ELUDOM 


-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 1069 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Swe ee ee Syabols -c------ Pages Processing 

: File Total Loaded Percent Mapped Time : 

: _$25S$DUA28: NIML -OBJINALLIB 13251 341 38 1 27 0:00.1 

> 7$255$DUA28:CSHRLIBINMALIBRY.L32;1 887 3 0 47 00:00.¢ 

> 7$255$DUA28:(SHRLIBINET.L32; 1279 14 1 63 00:00. 

: 7$255$puA28:CSYSLIBISTARLET.L32;1 9776 5 0 581 00:03.2 

: COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NMLPMANIP/OBJ=OBJ$:NMLPMANIP MSRC$:NMLPMANIP/UPDATE=(ENHS$:NMLPMANIP) 


Size: 1069 code + 0 data bytes 
Run Time: 0:43-9 

Elapsed Time: 1:02.4 

Lines/CPU Min: 1991 
Lexemes/CPU-Min: 12432 

Memory Used: 169 pages 

Compication Complete 
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